home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PROGEDIT
/
3458B.ZIP
/
AMAC44B.ZIP
/
QLST@F3.QM
< prev
next >
Wrap
Text File
|
1992-05-27
|
3KB
|
62 lines
* qlst@f3.qm
* Macro To Load a File List of Files In Ring
* 5/18/92
*
* ----------------------------------------------------------------------
* @(f3) Load File List In Ring,
* User Selects File To Load Emulating PC Magazine Filectrl.com,
* Makes Paragraph of File List For Faster Loading,
@f3 macrobegin
setscreenoff * Turn screen off for less flicker
endfile markline begfile * Mark file list
* ---------------------- Copy File List To Nul ----------------------*
editfile "Nul" return * Load Nul for faster loading
copyblock unmarkblock * Copy file list to Nul
* ------------ Makes File List Paragraph For Fast Loading ------------*
LOOP:
endline begline * Test if empty line
jtrue NOEMPTY
delline jtrue LOOP * Delete all empty line 'til no more
NOEMPTY:
endpara * Move end of para
cursordown jtrue LOOP * Loop 'til no more empty lines
begfile * Pos to format
setrmargin "60" return * Set margin for fast load
wrappara * Format file list as para
setrmargin "80" return * Reset right margin to "80"
* ---------------------- Load File List In Ring ----------------------*
LOAD:
setscreenon setscreenoff * Turn screen on/off to see loading
markline * Mark file name at cursor
copy * Copy file name to scrap
editfile currentfilename " " * Load current file plus
paste return * last marked on list into ring
cursorup * Move up to next file in list
jtrue LOAD * Continue loading until top of list
* --------------- Quit Nul, Return To Top of File List ---------------*
quit * Quit formatted Nul file list
* ------------------- Load First File in Window 2 -------------------*
horizontalwindow * Open 2 windows
editfile paste return * Load first file in list in window 2
prevwindow * Move to window 1
* ------------------- Select Another File To Load -------------------*
SELECT:
setscreenon * Turn on for pause
pause * Pause to select file to load
markline copy * Copy selected file name to scrap
nextwindow * Move to window 2
editfile paste return * Load selected file
zoomwindow * Zoom to edit in full window
pause * Press <enter> to Select another file
prevwindow * Return to list to select another file
makectrofscreen * To view files above and below cursor
jump SELECT * Loop again to select another file
*
* 81 bytes Thu 05-07-1992 10:10:11 (TH @f3)